﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class PagocsFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As PagocsBE
        Dim tmpPagocs As PagocsBE = New PagocsBE()
        Try
            With tmpPagocs
                .IdPago = convertDTFromDb.ConvertLong(dr.Item("IdPago"))
                .NumOC = convertDTFromDb.ConvertLong(dr.Item("NumOC"))
                .Obs = convertDTFromDb.ConvertString(dr.Item("Obs"))
            End With
            Return tmpPagocs
        Catch ex As Exception
            Throw
        Finally
            tmpPagocs = Nothing
        End Try
    End Function
End Class
